home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 35
/
Tiger_Disk_035_1997-02_Tiger-Crew-Disk_de_Side_B.d64
/
kurzbrief
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
66 lines
10 print"[147]bitte zunaechst in den zeilen"
20 print"220 eigenen namen,"
30 print"230 strasse und hausnummer,"
40 print"240 postleitzahl und ort,"
50 print"390 ort,"
60 print"250 telefon-nummer"
70 print"im 'umfang' der vorgegebenen '";chr$(34);"' ein-"
80 print"setzen!"
90 print"dann die zeilen 10 - 95 loeschen und"
94 print"das programm neu speichern!"
95 poke198,0:wait198,1:poke198,0:end
100 poke53281,25:poke53280,25:clr
110 print"[147][155]kurzbrief [184][184][184][184][184][184][184][184][184]"
120 input"druckeradresse (4/5)";d
130 ifd<4ord>5thengosub610:goto120
140 gosub510
150 input"wieviel ausdrucke ";x
160 ifx<1then150
170 printtab(14)"bitte warten
180 [153][163]12)"drucker arbeitet"
190 [129]t[178]1[164]x
200 [159]1,d,7
210 [152]1,"tab(tab(tab(tab(tab(";[163]67)"tab(tab(tab(tab(tab("
220 [152]1,[199](14),[163]57)"(NULL)right$chr$val(NULL) - len(NULL)val(NULL)"
230 [152]1,[199](14)"(NULL)urzbrief ",[199](15),"asceldstrasse 17 "
240 [152]1,[199](14)"right$nformation",[199](15),[163]6)"36391 (NULL)right$(NULL)(NULL)(NULL)atn(NULL) "
250 [152]1,[163]58)"(NULL)el.:06664 / 7469"
260 [152]1,[199](14)"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
270 [152]1,[199](15)"(NULL)right$(NULL) str$val(NULL) o valrledigung o (NULL)enntnisnahme";
280 [152]1," o (NULL)chreiben o (NULL)uster"
290 [152]1,"peekright$(NULL)(NULL)val (NULL)(NULL): o valntscheidung o atnnruf atn(NULL)(NULL)atnchr$val: o (NULL)opie";
300 [152]1," o (NULL)ertrag"
310 [152]1," o (NULL)ueckgabe o (NULL)tellungnahme tab(tab(tab(tab(tab(tab(tab( ";
320 [152]1,"o (NULL)echnung o"
330 [152]1,[199](14)"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
340 [152]1,[199](15),[163]36)"peekemerkung:"
350 [152]1,[163]46)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
360 [152]1,[199](14)" ortantantantantantantantantantantantantan^"
370 [129]pr[178]1[164]8:[152]1:[130]
380 [152]1,[199](14)" /tantantantantantantantantantantantantanexp":[152]1
390 [152]1,[199](15),[163]36)"(NULL)inntal, den ...........199."
400 [152]1
410 [152]1,"tab(tab(tab(tab(tab(";[163]67)"tab(tab(tab(tab(tab("
420 [152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1:[152]1
430 [160]1
440 [130]
450 [153][163]14)" nwaiteuer ausdruck"
460 [153][163]12)"pwaitrg.ende "
470 [161]a$:[139]a$[178]""[167]470
480 [139]a$[178]"n"[167][138]
490 [139]a$[178]"p"[167][158]64738
500 [137]470
510 [143] druckerabfrage mit signalton
520 x[178]a [176] d [176] 4
530 [151]768,61:[159]1,x,7:[152]1,"";:[160]1:[151]768,139:[139]st[179][177][171]128[167][142]
540 [153][163]11)"drucker einschaltencontwait"
550 [153][163]16)"[taste]waitlist"
560 [151]54296,15:[151]54272,0:[151]54273,40:[151]64277,0
570 [151]54278,240:[151]54276,33
580 [161]y$:[139]y$[178]""[167]580
590 [143] tastaturpieps
600 [151]54276,32:[138]
610 [151]54296,15:[151]54272,0:[151]54273,40:[151]64277,0
620 [151]54278,240:[151]54276,33
630 [129]t[178]1[164]100:[130]:[151]54276,32:[142]